10 REM: COPYRIGHT 1993 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 :
50 PRINT"[147]"CHR$(142)CHR$(8):POKE53280,2:POKE53281,7:DIMC$(15):POKE788,52
60 FORR=0TO15:READJU$:NEXT:FORR=1TO125:READDT:CK=CK+DT:NEXT
70 IFCK<>15188THENPRINT"[144]        ERROR IN NUMERICAL DATA":STOP
80 ML$="":RESTORE:FORR=0TO15:READC$(R):NEXT
90 BL$="":FORR=1TO39:BL$=BL$+" ":NEXT
100 PRINT"[147][144]"TAB(12)"SILICON COBBLER":PRINTTAB(11)"PROGRAM BOOT MAKER"
110 PRINTTAB(12)"BY: R. MARKLAND"
120 PRINTTAB(16)"(C) 1993":PRINTTAB(5)"COMPUTE PUBLICATIONS INTL LTD"
130 FORR=1TO24:READDT:ML$=ML$+CHR$(DT):NEXT
140 GOSUB830:PRINT"    SELECT BORDER COLOR DURING LOAD":PRINTTAB(16)"(0-15)"
150 TB=18:NT=0:LE=2:GOSUB850:BC=VAL(TP$):IFBC>15THEN140
160 ML$=ML$+CHR$(BC):GOSUB820
170 FORR=1TO4:READDT:ML$=ML$+CHR$(DT):NEXT
180 GOSUB830:PRINT"    SELECT SCREEN COLOR DURING LOAD":PRINTTAB(16)"(0-15)"
190 TB=18:NT=0:LE=2:GOSUB850:SC=VAL(TP$):IFSC>15THEN180
200 ML$=ML$+CHR$(SC):GOSUB820
210 FORR=1TO4:READDT:ML$=ML$+CHR$(DT):NEXT
220 GOSUB830:PRINT"   SELECT CHARACTER COLOR DURING LOAD":PRINTTAB(16)"(0-15)"
230 TB=18:NT=0:LE=2:GOSUB850:CL=VAL(TP$):IFCL>15THEN220
240 ML$=ML$+CHR$(CL):GOSUB820
250 FORR=1TO33:READDT:ML$=ML$+CHR$(DT):NEXT
260 GOSUB830:PRINTTAB(9)"ENTER NAME OF PROGRAM"                 
270 PRINTTAB(11)"TO BE LOADED/RUN:":PRINTTAB(11)"(1-16 CHARACTERS)"
280 TB=12:NT=1:LE=16:GOSUB850:NA$=TP$:ML$=ML$+CHR$(LEN(NA$)):GOSUB820
290 FORR=1TO31:READDT:ML$=ML$+CHR$(DT):NEXT
300 GOSUB830:PRINTTAB(8)"ENTER NECESSARY COMMAND"
310 PRINTTAB(10)"TO ACTIVATE PROGRAM":PRINTTAB(11)"YOU WISH TO BOOT:"
320 PRINTTAB(8)"(E.G. RUN OR SYS49152)"
330 TB=12:NT=1:LE=8:GOSUB850:CM$=TP$:ML$=ML$+CHR$(LEN(CM$)):GOSUB820
340 FORR=1TO10:READDT:ML$=ML$+CHR$(DT):NEXT
350 ML$=ML$+CHR$(LEN(CM$)+1):FORR=1TO11:READDT:ML$=ML$+CHR$(DT):NEXT
360 GOSUB830:PRINT" SELECT CHARACTER COLOR FOLLOWING LOAD"
370 PRINTTAB(16)"(0-15)"
380 TB=18:NT=0:LE=2:GOSUB850:CP=VAL(TP$):IFCP>15THEN360
390 GOSUB820:ML$=ML$+CHR$(CP):FORR=1TO8:READDT:ML$=ML$+CHR$(DT):NEXT
400 ML$=ML$+"LOADING, PLEASE WAIT...."+CHR$(0)
410 FORR=1TOLEN(NA$):ML$=ML$+MID$(NA$,R,1):NEXT:IFLEN(NA$)=16THEN430
420 FORR=LEN(NA$)+1TO16:ML$=ML$+CHR$(234):NEXT
430 FORR=1TOLEN(CM$):ML$=ML$+MID$(CM$,R,1):NEXT:ML$=ML$+CHR$(13)
440 GOSUB830:PRINTTAB(11)"ENTER A FILE NAME"
450 PRINTTAB(11)"FOR THIS AUTOBOOT:":PRINTTAB(11)"(1-16 CHARACTERS)"
460 TB=12:NT=1:LE=16:GOSUB850:LN$=TP$:GOSUB820
470 GOSUB830:PRINTTAB(2)"BORDER COLOR IS:"TAB(38-LEN(C$(BC)))C$(BC)
480 PRINTTAB(2)"SCREEN COLOR IS:"TAB(38-LEN(C$(SC)))C$(SC)
490 PRINTTAB(2)"LOAD CHR COLOR IS:"TAB(38-LEN(C$(CL)))C$(CL)
500 PRINTTAB(2)"PROGRAM TO BOOT IS:"TAB(38-LEN(NA$))NA$
510 PRINTTAB(2)"CMD TO ACTIVATE IS:"TAB(38-LEN(CM$))CM$
520 PRINTTAB(2)"PROG CHR COLOR IS:"TAB(38-LEN(C$(CP)))C$(CP)
530 PRINTTAB(2)"AUTOBOOT NAME IS:"TAB(38-LEN(LN$))LN$
540 PRINTTAB(7)"PLEASE REVIEW YOUR CHOICES":PRINTTAB(15)"THEN PRESS"
550 PRINT" (C) TO CONTINUE -/- (S) TO START OVER"
560 GETD$:IFD$=""THEN560
570 IFD$="S"THEN80
580 IFD$<>"C"THEN560
590 GOSUB830:PRINTTAB(8)"INSERT DESTINATION DISK":PRINTTAB(15)"THEN PRESS"
600 PRINTTAB(7)"ANY KEY TO CREATE AUTOBOOT":POKE198,0
610 GETD$:IFD$=""THEN610
620 GOSUB830:PRINTTAB(8)"WORKING, PLEASE WAIT...."
630 OPEN15,8,15,"I0:":OPEN8,8,8,"0:"+LN$+",P,R":CLOSE8:FL=0:GOSUB960
640 IFFLTHEN470
650 OPEN15,8,15:OPEN8,8,8,"0:"+LN$+",P,W":CLOSE8:FL=0:GOSUB960
660 IFFLTHEN470
670 IFE1<>63THEN740
680 GOSUB830:MS$="FILE "+CHR$(34)+LN$+CHR$(34)+" ALREADY EXISTS"
690 PRINTTAB((40-(LEN(MS$)))/2)MS$
700 PRINTTAB(13)"OVERWRITE IT?":PRINTTAB(16)"Y -/- N"
710 GETD$:IFD$=""THEN710
720 IFD$="N"THEN440
730 IFD$<>"Y"THEN710
740 OPEN15,8,15,"I0:":PRINT#15,"S0:"+LN$:CLOSE15
750 OPEN8,8,8,"O:"+LN$+",P,W":PRINT#8,ML$:CLOSE8:CLOSE15
760 GOSUB830:PRINT"  AUTOBOOT COMPLETED, DO YOU WISH TO:"
770 PRINTTAB(10)"1.  CREATE ANOTHER?":PRINTTAB(10)"2.  QUIT?"
780 GETD$:IFD$=""THEN780
790 IFD$="1"THEN80
800 IFD$<>"2"THEN780
810 PRINT"[147]":POKE646,14:POKE647,14:POKE53280,14:POKE53281,6:POKE788,49:END
820 PRINT:PRINTTAB(16)"ENTERED":FORT=1TO1000:NEXT
830 PRINT"":FORR=1TO14:PRINTBL$:NEXT:PRINT""
840 RETURN
850 POKE198,0:PRINTTAB(TB);:POKE204,0:TP$=""
860 POKE647,PEEK(646):GETKI$:IFKI$=""THEN860
870 IFKI$=CHR$(34)THEN860
880 IFKI$=CHR$(13)ANDLEN(TP$)>0THENPRINT" ";:POKE204,1:RETURN
890 IFKI$=CHR$(20)ANDLEN(TP$)>0THENTP$=LEFT$(TP$,LEN(TP$)-1):GOTO950
900 IFKI$=>CHR$(48)ANDKI$=<CHR$(57)THEN930
910 IFNTTHENIFKI$=>CHR$(32)ANDKI$=<CHR$(90)THEN930
920 GOTO860
930 IFLEN(TP$)=(LE)THEN860
940 TP$=TP$+KI$
950 PRINTKI$;:GOTO860
960 INPUT#15,E1,ER$,E2,E3
970 IFE1=0ORE1=62ORE1=63THENCLOSE15:RETURN
980 CLOSE15:FL=1
990 GOSUB830:PRINTTAB(9)"* * * DISK ERROR * * *"
1000 PRINTTAB(10)"";E1;ER$;E2;E3
1010 PRINTTAB(3)"CHECK DISK & DRIVE, THEN TRY AGAIN"
1020 PRINTTAB(7)"PRESS ANY KEY TO CONTINUE"
1030 GETD$:IFD$=""THEN1030
1040 RETURN
1050 DATA BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW,ORANGE,BROWN,LIGHT RED
1060 DATA DARK GRAY,MEDIUM GRAY,LIGHT GREEN,LIGHT BLUE,LIGHT GRAY
1070 DATA 44,3,60,3,102,254,165,244,237,245,0,0,0,0,0,0,0,0
1080 DATA 169,147,32,210,255,169
1090 DATA 141,32,208,169
1100 DATA 141,33,208,169
1110 DATA 141,134,2,32,138,255,32,231,255,160,0,24,162,12,160,8,32,240,255
1120 DATA 160,0,185,174,3,240,6,32,210,255,200,208,245,169
1130 DATA 162,199,160,3,32,189,255,169,1,168,162,8,32,186,255,173,33,208
1140 DATA 141,134,2,169,0,32,213,255,134,45,132,46,160
1150 DATA 185,215,3,153,119,2,136,16,247,169
1160 DATA 133,198,32,94,166,169,147,32,210,255,169
1170 DATA 141,134,2,162,128,108,2,3